Option Explicit
Sub F_Sample012()
    'Microsoft Forms 2.0 Object Library ]wޥζ
    'Microsoft Scripting Runtime ]wޥζ
    'ոF_Data01
    Dim myFileName As String
    Dim myDataobj  As DataObject
    Dim myFSO      As Scripting.FileSystemObject
    Dim myTst      As Scripting.TextStream
    Dim myStr      As String
    Dim myDataRng  As Range
    'xsɮצW
    myFileName = "F_Book3.csv"
    On Error Resume Next
    'RPWɮ
    Kill ThisWorkbook.Path & "\" & myFileName
    On Error GoTo 0
    'wxs
    Set myDataRng = Worksheets("F_Data01").Cells(1, 1).CurrentRegion
    'NưeŶKï
    myDataRng.Copy
    'qŶKïerܼ
    Set myDataobj = New DataObject
    myDataobj.GetFromClipboard
    myStr = myStr & Replace(myDataobj.GetText, vbTab, ",")
    '
    Set myDataobj = Nothing
    'qrܼưeɮ
    Set myFSO = New Scripting.FileSystemObject
    Set myTst = myFSO.OpenTextFile( _
    Filename:=ThisWorkbook.Path & "\" & myFileName, _
    IOMode:=ForWriting, Create:=True)
    myTst.Write myStr
    myTst.Close
    Application.CutCopyMode = False
    '
    Set myTst = Nothing
    Set myFSO = Nothing
End Sub
